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-- Segments. Mesa Edited by Sandman on May 12, 1978 3:07 PM 

DIRECTORY 

AllocDefs: FROM "allocdefs" USING [ 

AllocHandle, ATlocInfo, GetAllocationObject, MakeDataSegment] , 

AltoDefs: FROM "altodefs" USING [MaxVMPage, PageSize], 

AltoFileDefs: FROM "al tof i1 edefs" USING [CFA, eofDA, FA, FP, vDA], 

BootDefs: FROM "bootdefs" USING [ 

AllocateObject, EnumerateObjects, LiberateObject, MapVM, Val idateObject] , 

DiskOefs: FROM "diskdefs" USING [ 

DiskCheckError, DiskPageDesc, DiskRequest, nSectors, SwapPages], 

InlineDefs: FROM "inlinedefs" USING [BITAND, COPY], 

NucleusDefs: FROM "nucleusdef s" , 

ProcessDefs: FROM "processdef s" USING [Disablelnterrupts, Enablelnterrupts] , 

SegmentDefs: FROM "segmentdef s" USING [ 

AccessOptions, AddressFromPage, Append, DataSegmentAddress, 
DataSegmentHandle, Def aul tAccess , DefauHBase, Def aultPages, 
DeleteDataSegment, FileAccessError. FileError, FileHandle, FileHint, 
FileSegmentHandle, GetEndOfFile, MaxRefs, MaxSegs, NewDataSegment, 
Object, OpenFile, PageCount, PageNumber, PageFromAddress , Read, 
ReleaseFile, SegmentHandle, SetFileAccess , SwapError, SwapIn, SwapOut, 
SwapUp, Unlock, Write], 

SystemDefs: FROM "systemdef s"; 

DEFINITIONS FROM AltoFileDefs, BootDefs, SegmentDefs; 

Segments: PROGRAM 

IMPORTS AllocDefs, BootDefs. DiskDefs, SegmentDefs 

EXPORTS BootDefs, NucleusDefs, SegmentDefs, SystemDefs SHARES SegmentDefs « 

BEGIN 

InvalidSegmentSize: PUBLIC SIGNAL [pages : PageCount] « CODE; 

NewFileSegment: PUBLIC PROCEDURE [ 

file: FileHandle, base:PageNumber, pages:PageCount, access:AccessOptions] 

RETURNS [seg:FileSegmentHandle] « 

BEGIN OPEN InlineDefs; 

IF access = Def aul tAccess THEN access ^ Read; 

IF f ile.segcount = MaxSegs THEN ERROR FileError[f ile]; 

IF BITAND[access,Append]#0 THEN ERROR FileAccessError[f ile] ; 

seg *- AnocateFileSegment[] ; 

BEGIN ENABLE UNWIND => LiberateFi leSegment[seg] ; 

IF base = DefaultBase THEN base *- 1; 

IF pages = DefauHPages THEN pages <- GetEndOf File[f ile].page-base+l; 

IF pages -IN (0 . .AltoDefs .MaxVMPage+1] THEN 
ERROR Inval idSegmentSize[pages]; 

SetFileAccess[f ile, access]; 

END; 
segt <r Object[FALSE, segment[f ile[FALSE , BITAND[access ,Read]^0, 

BITAND[access ,Write]j^O, other, 0, file, base, pages, 0, 

disk[FileHint[eofDA,0]]]]]; 
f ile. segcount <- f ile.segcount+1; 
RETURN 
END; 

BootFileSegment: PUBLIC PROCEDURE [file: FileHandle , base:PageNumber , 
pages :PageCount, access:AccessOptions, addr:POINTER] 
RETURNS [seg:FileSegmentHandle] « BEGIN 
seg <- NewFileSegment[f ile, base, pages , access]; 
IF addr ff NIL THEN 

BEGIN 

seg.VMpage <- PageFromAddress[addr]; 

-- Disablelnterrupts[]; 

IF ~PagesBusy[seg. VMpage, pages] THEN ERROR; 

seg . swappedin <- TRUE; 

seg. lock ♦- seg. lock+1; 

f ile. swapcount <- f ile. swapcount+1; 

-- Enablelnterrupts[]; 

AllocDefs .GetAllocationObject[].update[seg.VMpage, pages, inuse, seg]; 

END; 
RETURN 
END; 

PagesBusy: PROCEDURE [base: PageNumber, pages: PageCount] RETURNS [BOOLEAN] « 
BEGIN OPEN AllocDefs; 
object: AllocHandle *- GetAl locationObject[] ; 
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FOR base IN [base. .base+pages) DO 

IF object. status[base]. status # busy THEN RETURN[FALSE] ; 

ENDLOOP; 
RETURN[TRUE] 
END; 

DeleteFileSegment: PUBLIC PROCEDURE [seg: FileSegmentHancne] « 
BEGIN 

file: FileHandle <- seg. file; 
Va1iclateFileSegment[seg]; 
SwapOut[seg] ; 
LiberateFi1eSegment[seg]; 
f ile.segcount <- f i1e.segcount-l; 
IF file.segcount « THEN ReleaseFile[f ile] ; 
RETURN 
END; 

FileSegmentAddress: PUBLIC PROCEDURE [seg : Fi leSegmentHandle] 
RETURNS [POINTER] - 
BEGIN 

IF -seg.swappedin THEN ERROR SwapError[seg] ; 
RETURN[AddressFromPage[seg. VMpage]] 
END; 

-- Window Segments (such as they are) 

MoveFileSegment: PUBLIC PROCEDURE [ 

seg: FileSegmentHandle, base :PageNumber , pages :PageCount] « 

BEGIN Val idateFileSegment[seg]; 

IF base «= DefaultBase THEN base ^ 1; 

IF pages = DefaultPages THEN pages *- GetEndOf File[seg.f ile] .page-base+1; 

IF pages --IN (0. . Al toDefs.MaxVMPage+1] THEN 

ERROR In val idSegmentSize[pages] ; 
SwapOut[seg]; seg. base *- base; 
seg. pages <- pages; 
RETURN 
END; 

MapFileSegment: PUBLIC PROCEDURE [ 

seg: FileSegmentHandle, f ile:FileHandle, base:PageNumber] « 

BEGIN 

wasin, waswrite: BOOLEAN; 

old: FileHandle « seg. file; 

Val idateFileSegment[seg]; 

IF -old. read THEN ERROR Fil eAccessError[old] ; 

IF -file. write THEN ERROR FileAccessError[f ile]; 

IF base = DefaultBase THEN base ♦- 1; 

wasin ^ seg . swappedin; waswrite ♦- seg. write; 

IF ~wasin THEN Swapln[seg]; 

-- Disablelnterrupts[]; 

old, swapcount ^ old.swapcount-1; 

old.segcount <- old. segcount-1; 

seg. file ♦- file; seg. base ♦- base; 

WITH s: seg SELECT FROM 

disk *> s.hint *- FileHint[eofDA,0]; 

ENDCASE; 
seg. write *- TRUE; 
file.segcount ♦- f ile. segcount+1; 
f ile. swapcount ♦- f ile. swapcount+1; 
-- Enablelnterrupts[]; 
IF wasin OR ~waswrite THEN SwapUp[seg]; 
seg. write <- waswrite; 
IF -wasin THEN 

BEGIN Unlock[seg]; SwapOut[seg3 END; 
IF old .segcount=0 THEN ReleaseFile[old]; 
RETURN 
END; 
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-- Segment Positioning 

PositionSeg: PUBLIC PROCEDURE [seg: FileSegmentHandle, useseg:BOOLEAN] 
RETURNS [BOOLEAN] - BEGIN 

-- returns TRUE if it read a non-null page into the segment, 
cfa: CFA; buf: DataSegmentHandle ; buffer: POINTER; 
WITH s: seg SELECT FROM 
disk «> 
BEGIN 
IF s. hint. da » eofDA AND s.base > 8 

AND s.file.segcount > 1 THEN FindSegHint[0s] ; 
IF s. hint. da ■ eofDA OR s. hint. page # s.base THEN 
BEGIN 
buffer ♦- 

IF useseg THEN AddressFromPage[s.VMpage] 

ELSE DataSegmentAddress[buf <- NewDataSegment[Def auUBase.l]]; 
cfa.fp <- s.file.fp; 
cfa, fa "r FA[s. hint. da, s. hint. page, 0]; 
[] <r JumpToPage[0cfa, s.base, buffer 

1 UNWIND «> IF -useseg THEN De1eteDataSegment[buf ]]; 
IF -useseg THEN DeleteDataSegment[buf ]; 
IF cfa. fa. page j^ s.base THEN ERROR SwapError[6s]; 
s.hint ♦- Fi1eHint[cfa.fa.da,cfa.fa.page]; 
RETURN[useseg AND cf a. f a. byte#0] ; 
END; 
END; 
ENDCASE; 
RETURN[FALSE] 
END; 

FindSegHint: PUBLIC PROCEDURE [seg : FileSegmentHandle] = 
BEGIN 

CheckHint: PROCEDURE [other : FileSegmentHandle] RETURNS [BOOLEAN] « 
BEGIN 

WITH o: other SELECT FROM 
disk «> 
BEGIN 
IF o.file « seg. file AND o. hint. da # eofDA 

AND 0. hint. page IN (hint. page. . seg. base] THEN hint <- o.hint; 
RETURN[hint.page=» seg. base] 
END; 
ENDCASE; 
RETURN[FALSE] 
END; 
hint: FileHint; ' 
WITH s: seg SELECT FROM 
disk «> 
BEGIN 

hint <- s.hint; 

[] <- EnumerateFileSegments[CheckHint]; 
s.hint ♦- hint; 
END; 
ENDCASE; 
RETURN 
END; 

GetFileSegmentDA: PUBLIC PROCEDURE [seg : FileSegmentHandle] RETURNS [vDA] 
BEGIN 

WITH s: seg SELECT FROM 
disk «> 
BEGIN 

[] <- PositionSeg[seg, FALSE]; 
RETURN[s.hint.da]; 
END; 
ENDCASE; 
RETURN[AltoFileDefs. eofDA] 
END; 

SetFileSegmentDA: PUBLIC PROCEDURE [seg: FileSegmentHandle, da:vDA] « 
BEGIN 
WITH s: seg SELECT FROM 

disk »> s.hint <- FileHint[da, s.base]; 

ENDCASE; 
RETURN 
END; 
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-- Segment Initialization 

CopyDataToFileSegment: PUBLIC PROCEDURE [ 

dataseg: DataSegmentHandle, fileseg: FileSegmentHandle] ■ 
BEGIN 

waslocked: BOOLEAN; 

IF dataseg. pages # fileseg. pages THEN SwapError[f ileseg]; 
IF fileseg. swappedin OR fileseg. loc ■ remote THEN 
BEGIN 

Swapln[fileseg]; 
waslocked ^ fileseg. lock # 1; 
InlineDefs.COPY[ 

from: DataSegmentAd dress [dataseg], 
to: FileSegmentAddress[f ileseg], 
nwords: da t aseg. pages ♦Al toDefs.PageSi ze]; 
IF ^waslocked THEN Unlock[f ileseg] ; 

IF -waslocked AND fileseg. loc ■ remote THEN SwapOut[f ileseg]; 
END 
ELSE 

WITH s: fileseg SELECT FROM 
disk »> 
BEGIN 

s.VMpage <- dataseg .VMpage; 
IF s. hint. page # s.base OR s. hint. da « eofDA THEN 

[] ^ PositionSeg[6s, FALSE]; 
MapVM[@s, WriteD]; 
END; 
ENDCASE; 
END; 

CopyFileToDataSegment: PUBLIC PROCEDURE [ 

fileseg: FileSegmentHandle, dataseg: DataSegmentHandle] » 
BEGIN 

waslocked: BOOLEAN; 

IF dataseg. pages # fileseg. pages THEN SwapError[f ileseg]; 
IF fileseg .swappedin OR fileseg. loc = remote THEN 
BEGIN 

Swapln[f ileseg]; 
waslocked ^ fileseg. lock # 1; 
InlineDefs.COPY[ 

from: FileSegmentAddress [fileseg], 
to: DataSegmentAddress[dataseg], 
nwords : dataseg. pages*Al toDef s. PageSize] ; 
IF -waslocked THEN Unlock[f ileseg]; 

IF -waslocked AND fileseg. loc = remote THEN SwapOut[f ileseg]; 
END 
ELSE 

WITH s: fileseg SELECT FROM 
disk => 
BEGIN 

s.VMpage «- dataseg .VMpage; 

IF (s. hint. page # s.base OR s. hint. da = eofDA) 
AND PositionSeg[@s, TRUE] AND s. pages = 1 
THEN NULL ELSE MapVM[@s, ReadD]; 
END; 
ENDCASE; 
END; 

ChangeDataToFileSegment: PUBLIC PROCEDURE [ 

dataseg: DataSegmentHandle, fileseg: FileSegmentHandle] » 

BEGIN 

IF dataseg. pages # fileseg, pages OR -fileseg .write OR fileseg. swappedin 

OR fileseg. file. swapcount « MaxRefs THEN SIGNAL SwapError[f ileseg]; 
IF -fileseg. file. open THEN OpenFile[f ileseg .file]; 
ProcessDefs.DisableInterrupts[]; 
fileseg. swappedin <- TRUE; 
fileseg. VMpage <^- dataseg. VMpage; 
fileseg. lock ^ fileseg. lock+1; 

fileseg. file, swapcount ♦- fileseg. file. swapcount + 1; 
ProcessDefs.EnableInterrupts[]; 
BootDef s. L i be r a teObject[ dataseg]; 
END; 
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-- File Positioning 

jump: INTEGER « 10*DiskDef s .nSectors ; 

InvalidFP: PUBLIC SIGNAL [fp:POINTER TO FP] ■ CODE; 

JumpToPage: PUBLIC PROCEDURE [ 

cfa:POINTER TO CFA, page:PageNumber , buf:POINTER] 

RETURNS [prev,next:vDA] ■ 

BEGIN OPEN DiskDefs; 

desc: DiskPageDesc; 

da: vDA <r cfa.fa.da; 

startpage: PageNumber; 

direction: INTEGER <- 1; 

firstpage: PageNumber ^ cfa.fa.page; 

arg: swap DiskRequest ^ DiskRequest [ 

buf ,0da, , ,@cfa.fp, TRUE, ReadD.ReadD, TRUE. swap[0desc]]; 
BEGIN 

IF da=eofDA THEN GO TO reset; 
SELECT firstpage-page FROM 
<- => NULL; 

» 1, < firstpage/10 «> direction <- -1; 
ENDCASE => GO TO reset; 
EXITS reset «> 
BEGIN 

firstpage ♦- 0; 
da *- cfa.fp.leaderDA; 
END; 
END; 
BEGIN 

ENABLE DiskCheckError--[page]-- =•> 
BEGIN 

IF page # startpage THEN RESUME; 
IF startpage»0 THEN GO TO failed; 
firstpage *- 0; 
da ^ cfa.fp.leaderDA; 
direction <- 1; 
RETRY; 
END; 
IF da^eofDA THEN GO TO failed; 
startpage <- firstpage; 
UNTIL da^eofDA DO 

arg.f irstPage <- firstpage; 
arg.lastPage <- 

IF direction<0 THEN firstpage 
ELSE MIN[page,f irstpage+jump-1] ; 
[] ^ SwapPages[@arg]; 
IF desc. page=page THEN EXIT; 

da <- IF direction<0 THEN desc.prev ELSE desc. next; 
firstpage <- desc. page+direction; 
ENDLOOP; 
cfa.fa ♦- FA[desc. this , desc. page , desc. bytes]; 
RETURN [desc.prev, desc. next]; 
EXITS 

failed => ERROR Inval idFP[(9cf a.fp] ; 
END; 
END; 
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-- Simplified Data Segments 

AllocatePages: PUBLIC PROCEDURE [npages:CARDINAL] RETURNS [POINTER] - 
BEGIN 

RETURN[DataSegmentAdd res s[NewDataSegment[Defau1tBase,n pages]]] 
END; 

AllocateSegment: PUBLIC PROCEDURE [nwords :CARDINAL] RETURNS [POINTER] ■ 
BEGIN 

RETURN[AnocatePages[ Pages ForWords[nwords]]] 
END; 

AHocateResidentPages: PUBLIC PROCEDURE [npages:CARDINAL] 
RETURNS [POINTER] « 
BEGIN OPEN AllocDefs; 

info: Alloclnfo •« [0, hard, topdown, initial, other, TRUE, FALSE]; 
RETURN[DataSegmentAddress[MakeDataSegment[DefaultBase, npages, info]]] 
END; 

AllocateResidentSegment: PUBLIC PROCEDURE [nwordsrCARDINAL] 
RETURNS [POINTER] » 
BEGIN 

RETURN[A1 locateResidentPages[PagesForWords[nwords]]] 
END; 

SegmentSize: PUBLIC PROCEDURE [base: POINTER] RETURNS [CARDINAL] » 
BEGIN 

seg: DataSegmentHandle = VMtoDataSegment[base]; 
RETURN[IF seg = NIL THEN ELSE seg . pages*Al toDef s . PageSize] 
END; 

FreeSegment, FreePages: PUBLIC PROCEDURE [base:POINTER] « 
BEGIN 

seg: DataSegmentHandle = VMtoDataSegment[base]; 
IF seg # NIL THEN DeleteDataSegment[seg]; 
RETURN 
END; 

PagesForWords: PUBLIC PROCEDURE [nwords: CARDINAL] RETURNS [CARDINAL] » 
BEGIN 

RETURN[(nwords + (Al toDef s. PageSize-l))/Al toDef s.PageSize] 
END; 

ValidateFileSegment: PROCEDURE [FileSegmentHandle]; 
LiberateFileSegment: PROCEDURE [FileSegmentHandle]; 

AllocateFileSegment: PROCEDURE RETURNS [seg: FileSegmentHandle] = 
BEGIN 
seg <- LOOPHOLE[AllocateObject[SIZE[f ile segment Object]]]; 

segt <- Object [FALSE, segment[f ile[ . , disk[]]]]; 

RETURN 
END; 

EnumerateFileSegments: PUBLIC PROCEDURE [ 

proc: PROCEDURE [FileSegmentHandle] RETURNS [BOOLEAN]] 
RETURNS [FileSegmentHandle] « 
BEGIN OPEN BootDefs; 

CheckSegment: PROCEDURE [seg: SegmentHandle] RETURNS [BOOLEAN] - 
BEGIN 

RETURN[WITH s: seg SELECT FROM 
file «> proc[0s], 
ENOCASE «> FALSE] 
END; 
RETURN[LOOPHOLE[EnumerateObjects[ segment, LOOPHOLE [CheckSegment] ]]] ; 
END; 

VMtoDataSegment: PUBLIC PROCEDURE [a:POINTER] RETURNS [DataSegmentHandle] 
BEGIN OPEN AllocDefs; 
seg: SegmentHandle <- VMtoSegment[a]; 
IF seg « NIL THEN RETURN[NIL]; 

WITH s: seg SELECT FROM data «> RETURN[6s]; ENDCASE; 
RETURN[NIL]; 
END; 

VMtoFileSegment: PUBLIC PROCEDURE [a:POINTER] RETURNS [FileSegmentHandle] 
BEGIN 
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seg: SegmentHandle ^ VMtoSegment[a]; 

IF seg ■ NIL THEN RETURN[NIL]; 

WITH s: seg SELECT FROM file -> RETURN[§s]; ENDCASE; 

RETURN[NIL]; 

END; 

VMtoSegment: PUBLIC PROCEDURE [a:POINTER] RETURNS [SegmentHandle] ■ 
BEGIN OPEN AllocDefs; 
pg: PageNumber » PageFromAddress[a3; 
RETURN[GetAnocationObject[].status[pg].seg]; 
END; 

SegmentAddress: PUBLIC PROCEDURE [seg:SegmentHand1e] RETURNS [POINTER] 
BEGIN 

page: PageNumber; 
WITH s: seg SELECT FROM 

data ■> page ^ s.VMpage; 

file "> IF -s.swappedin THEN RETURN[NIL] ELSE page ^ s.VMpage; 

ENDCASE »> RETURN[NIL]; 
RETURN[AddressFromPage[page]] 
END; 

EnumerateDataSegments: PUBLIC PROCEDURE [ 

proc:PROCEDURE [DataSegmentHandle] RETURNS [BOOLEAN]] 

RETURNS [DataSegmentHandle] » 

BEGIN 

seg: SegmentHandle; 

i: CARDINAL *- 0; 

WHILE i < AltoDefs.PageSize DO 

seg <" AllocDefs .GetAllocationObject[] .status[i]. seg; 
IF seg ff NIL THEN 

WITH s: seg SELECT FROM 
data => 
BEGIN 

IF proc[@s] THEN RETURN [@s]; 
i *- i + s. pages; 
END; 
file => i ♦- i + s. pages; 
ENDCASE 
ELSE i <- i + 1; 
ENDLOOP; 
RETURN[NIL]; 
END; 

PagesFree: PUBLIC PROCEDURE [base: PageNumber. pages: PageCount] 
RETURNS [BOOLEAN] = 
BEGIN 
FOR base IN [base, .base+pages) DO 

IF ~PageFree[base] THEN RETURN[FALSE] ; 

ENDLOOP; 
RETURN[TRUE] 
END; 

PageFree: PUBLIC PROCEDURE [page: PageNumber] RETURNS [BOOLEAN] • 
BEGIN OPEN AllocDefs; 

RETURN[GetAllocationObject[] .status[page] .status » free] 
END; 

-- Main Body 

ValidateFileSegment <- LOOPHOLE[Val idateObject]; 
LiberateFileSegment ^ LOOPHOLE[LiberateOb ject] ; 

END. 



